home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Borland / Borland C++ For TASM / THUNK95.PAK / DLL16.CPP < prev    next >
C/C++ Source or Header  |  1996-02-21  |  1KB  |  37 lines
  1. //----------------------------------------------------------------------------
  2. // Thunk95 example program
  3. // Copyright (c) 1996 by Borland International, All Rights Reserved
  4. //----------------------------------------------------------------------------
  5. // By marking the the 16-bit DLL as a Windows 4.0 app, the system will
  6. // automatically call a function DllEntryPoint exported from the DLL.
  7. // LibMain will still be called as before,
  8.  
  9. #include <windows.h>
  10.  
  11. extern "C" BOOL FAR PASCAL __export ThunkObj_ThunkConnect16 (
  12.          LPSTR pszDLL16,
  13.          LPSTR pszDll32,
  14.          WORD hInst,
  15.          DWORD dwReason);
  16.  
  17. #pragma argsused
  18. extern "C" BOOL FAR PASCAL __export DllEntryPoint (
  19.          DWORD dwReason,
  20.          WORD  hInst,
  21.          WORD  wDS,
  22.          WORD  wHeapSize,
  23.          DWORD dwReserved1,
  24.          WORD  wReserved2 )
  25.    {
  26.    return ThunkObj_ThunkConnect16("DLL16.dll", "DLL32.DLL", hInst, dwReason)
  27.       ? TRUE
  28.       : MessageBox(NULL, "Failed DLL16::ThunkObj_ThunkConnect16",
  29.             "Error", MB_OK|MB_ICONHAND|MB_APPLMODAL);
  30.    }
  31.  
  32. int CALLBACK PASCAL LibMain (HINSTANCE, WORD, WORD, LPSTR)
  33.    {
  34.    return 1;
  35.    }
  36.  
  37.